green <- miscgis::miscgis_pals$tableau_cat[["green"]]
blue <- miscgis::miscgis_pals$tableau_cat[["blue"]]
orange <- miscgis::miscgis_pals$tableau_cat[["orange"]]
red <- miscgis::miscgis_pals$tableau_cat[["red"]]
teal <- miscgis::miscgis_pals$tableau_cat[["teal"]]
pal_rgb_4 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue")] %>% unlist %>% palette()
pal_rgb_4 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue")] %>% unlist %>% palette()
pal_rgb_6 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue","orange","purple")] %>% unlist %>% palette()
pal_rgb_6 <- miscgis::miscgis_pals$tableau_cat[c("red","gold","green","blue","orange","purple")] %>% unlist %>% palette()
proj_light_grey <- col2hex("grey75")
proj_grey <- col2hex("grey50")
proj_dark_grey <- col2hex("grey25")
div_pal <- brewer.pal(11,'RdBu')[2:10]

# Load the map-making function
if(!exists('make_acs_map')){make_acs_map <- read_rds(root_file('./1-data/4-interim/make-acs-map-fun.rds'))}

# Load the crosstalk function
if(!exists('make_acs_crosstalk')){make_acs_crosstalk <- read_rds(root_file('./1-data/4-interim/make-acs-crosstalk-fun.rds'))}


# Load the acs indicator object that is prepared for the above function
if(!exists('map_acs_data_sf')){map_acs_data_sf <- read_rds(root_file('./1-data/4-interim/coo-acs-inds-map-sf.rds'))}

Income

These maps show the share of households earning less than 80% AMI for each census tract in Seattle CCD.

The data reflects a sample observed over a five-year span between 2011 and 2015.

COO Communities

# Tracts in COO communities
make_acs_map(long_sf = map_acs_data_sf,
             .comms_only = TRUE,
             .geog = 'tract',
             .category = 'VULN',
             .topic = 'B19001',
             .pal = 'plasma',
             .legend_title = "",
             .css_style = paste0("float: left;","margin:3px;","text-transform:uppercase;text-shadow:-1px 0 #FFFFFF,0 1px #FFFFFF,1px 0 #FFFFFF,0 -1px #FFFFFF")) 

# Aggregated tracts for each COO community
make_acs_map(long_sf = map_acs_data_sf,
             .geog = 'community',
             .category = 'VULN',
             .topic = 'B19001',
             .pal = 'plasma',
             .legend_title = "",
             .css_style = paste0("float: none;","margin:3px;","text-transform:uppercase;text-shadow:-1px 0 #FFFFFF,0 1px #FFFFFF,1px 0 #FFFFFF,0 -1px #FFFFFF")) 

Data: All Geographies

make_acs_dt(long_sf = map_acs_data_sf,
            .category = 'VULN',
            .topic = 'B19001',
            .col_title = "Low Inc. HH's")